﻿Public Class Usuario
    Public Sub New()

    End Sub
#Region "CONSTRUCTOR"
    Public Sub New(ByVal pcodigoUsuario As String, ByVal ploginUsuario As String, ByVal ppasswordUsuario As String, ByVal pestadoUsuario As String, ByVal pcodigoEmpleado As String)
        MyBase.New()
        codigoUsuario = pcodigoUsuario
        loginUsuario = ploginUsuario
        passwordUsuario = ppasswordUsuario
        estadoUsuario = pestadoUsuario
        codigoEmpleado = pcodigoEmpleado
    End Sub

#End Region

#Region "PROPIEDADES"

    Public Property codigoUsuario As String
    Public Property loginUsuario As String
    Public Property passwordUsuario As String
    Public Property estadoUsuario As String
    Public Property codigoEmpleado As String
#End Region

End Class
